home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ping / apimodul.bas next >
Encoding:
BASIC Source File  |  1999-02-11  |  187 b   |  8 lines
  1. Attribute VB_Name = "APIModule"
  2. Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  3. Public Sub GoToSleep(ByVal pSecs As Long)
  4.     '
  5.     Call Sleep(pSecs)
  6.     '
  7. End Sub
  8.